home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.17 / pcq-programme / ufo / bilder < prev    next >
Text File  |  1995-04-22  |  6KB  |  251 lines
  1.  
  2.  
  3. CONST
  4.         { Wir definieren eine Farbtabelle mit 8 Farben für LoadRGB4 }
  5.  
  6.         Farbtabelle : array[1..8] of short =
  7. (                     $0000, { Schwarz }
  8.                       $0ECA, { Grau    }
  9.                       $044F, { Blau    }
  10.                       $0F00, { Rot     }
  11.                       $0F0C, { Violett }
  12.                       $07FB, { Türkis  }
  13.                       $0FE0, { Gelb    }
  14.                       $00F0  { Grün    }
  15. );
  16.  
  17.         ImageDataAstronaut : array[1..30] of short =
  18. (
  19.         $1F00,$3F80,$60C0,$3F80,$1F00,$1100,$0000,$1100,
  20.         $1100,$0000,$0000,$0000,$0000,$0000,$0000,$CE60,
  21.         $3F80,$0E00,$0E00,$3180,$0000,$0000,$0000,$0000,
  22.         $0000,$1100,$0000,$1100,$1100,$4040
  23. );
  24.  
  25.         ImageAstronaut : Image =
  26. (
  27.         0,
  28.         0,
  29.         11,
  30.         10,
  31.         3,
  32.         Nil,
  33.         $07,
  34.         $00,
  35.         Nil
  36. );
  37.  
  38.         ImageDataAtomium : array[1..66] of short =
  39. (
  40.         $0000,$0000,$0000,$0000,$0000,$0000,$0306,$0000,
  41.         $70D8,$7000,$F800,$F800,$70D8,$7000,$0306,$0000,
  42.         $0000,$0000,$0000,$0000,$0000,$0000,$1C71,$C000,
  43.         $3EFB,$E000,$1C71,$C000,$0306,$0000,$00D8,$0000,
  44.         $0000,$0000,$00D8,$0000,$0306,$0000,$1C71,$C000,
  45.         $3EFB,$E000,$1C71,$C000,$1C01,$C000,$3E03,$E000,
  46.         $1C01,$C000,$0326,$0000,$70F8,$7000,$FFFF,$F800,
  47.         $70F8,$7000,$0326,$0000,$1C01,$C000,$3E03,$E000,
  48.         $1C01,$C000
  49. );
  50.  
  51.         ImageAtomium : Image =
  52. (
  53.         0,
  54.         0,
  55.         21,
  56.         11,
  57.         3,
  58.         Nil,
  59.         $07,
  60.         $00,
  61.         Nil
  62. );
  63.  
  64.         ImageDataFragezeichen : array[1..39] of short =
  65. (
  66.         $FFF8,$FFF8,$F0F8,$E678,$FE78,$FCF8,$F9F8,$FFF8,
  67.         $F9F8,$FFF8,$FFF8,$FFF8,$FFF8,$FFF8,$FFF8,$F0F8,
  68.         $E678,$FE78,$FCF8,$F9F8,$FFF8,$F9F8,$FFF8,$FFF8,
  69.         $FFF8,$FFF8,$0000,$7FF0,$70F0,$6670,$7E70,$7CF0,
  70.         $79F0,$7FF0,$79F0,$7FF0,$7FF0,$7FF0,$0000
  71. );
  72.  
  73.         ImageFragezeichen : Image =
  74. (
  75.         0,
  76.         0,
  77.         13,
  78.         13,
  79.         3,
  80.         Nil,
  81.         $07,
  82.         $00,
  83.         Nil
  84. );
  85.  
  86.         ImageDataTankstelle : array[1..20] of short =
  87. (
  88.         $FFFC,$8007,$8005,$8005,$8007,$FFFC,$3FF0,$3FF0,
  89.         $3FF0,$3FF0,$0000,$7FF8,$6458,$7FF8,$7278,$0000,
  90.         $1FE0,$1FE0,$1FE0,$0000
  91. );
  92.  
  93.         ImageTankstelle : Image =
  94. (
  95.         0,
  96.         0,
  97.         16,
  98.         10,
  99.         2,
  100.         Nil,
  101.         $03,
  102.         $00,
  103.         Nil
  104. );
  105.  
  106.         ImageDataEieruhr : array[1..24] of short =
  107. (
  108.         $FFFC,$FFFC,$9FE4,$8784,$8784,$9FE4,$FFFC,$FFFC,
  109.         $0000,$7FF8,$7FF8,$7FF8,$7FF8,$7FF8,$7FF8,$0000,
  110.         $0000,$0000,$6018,$7878,$7878,$6018,$0000,$0000
  111. );
  112.  
  113.         ImageEieruhr : Image =
  114. (
  115.         0,
  116.         0,
  117.         14,
  118.         8,
  119.         3,
  120.         Nil,
  121.         $07,
  122.         $00,
  123.         Nil
  124. );
  125.  
  126.         ImageDataSchiff : array[1..48] of short =
  127. (
  128.         $0000,$0000,$0000,$0000,$0000,$0000,$7F1F,$8000,
  129.         $7F1F,$8000,$0000,$0000,$0000,$0000,$0000,$0000,
  130.         $81E0,$4000,$87F8,$4000,$9FFE,$4000,$8000,$4000,
  131.         $8000,$4000,$9FFE,$4000,$87F8,$4000,$81E0,$4000,
  132.         $8000,$4000,$8000,$4000,$8000,$4000,$8000,$4000,
  133.         $8000,$4000,$8000,$4000,$8000,$4000,$8000,$4000
  134. );
  135.  
  136.         ImageSchiff : Image =
  137. (
  138.         0,
  139.         0,
  140.         18,
  141.         8,
  142.         3,
  143.         Nil,
  144.         $07,
  145.         $00,
  146.         Nil
  147. );
  148.  
  149.         ImageDataFalle : array[1..40] of short =
  150. (
  151.         $FFFF,$F000,$FFF8,$F000,$FFC7,$F000,$FE3F,$F000,
  152.         $F1FF,$F000,$F007,$F000,$FE3F,$F000,$F1FF,$F000,
  153.         $CFFF,$F000,$FFFF,$F000,$FFFF,$F000,$FFF8,$F000,
  154.         $FFC7,$F000,$FE3F,$F000,$F1FF,$F000,$F007,$F000,
  155.         $FE3F,$F000,$F1FF,$F000,$CFFF,$F000,$FFFF,$F000
  156. );
  157.  
  158.         ImageFalle : Image =
  159. (
  160.         0,
  161.         0,
  162.         20,
  163.         10,
  164.         2,
  165.         NIL,
  166.         $03,
  167.         $00,
  168.         NIL
  169. );
  170.  
  171.         ImageDataExplosion1 : array[1..78] of short =
  172. (
  173.         $0000,$0000,$0080,$0000,$0009,$0000,$0081,$1000,
  174.         $0020,$4000,$0040,$2000,$0004,$0000,$1080,$2000,
  175.         $4080,$0800,$0000,$0000,$0120,$2000,$0020,$6000,
  176.         $0000,$0000,$0010,$0000,$00CA,$0000,$0089,$0000,
  177.         $01AD,$3200,$0264,$5200,$1964,$A800,$0584,$1000,
  178.         $5088,$2C00,$4481,$8800,$0044,$CC00,$0568,$A800,
  179.         $00A1,$E000,$04D4,$4000,$0010,$0000,$0042,$0000,
  180.         $0080,$0000,$0120,$2200,$0244,$0200,$0824,$0000,
  181.         $0480,$0000,$4008,$0000,$0400,$8000,$0040,$8800,
  182.         $0008,$8800,$0081,$8000,$04C0,$4000
  183. );
  184.  
  185.         ImageExplosion1 : Image =
  186. (
  187.         0,
  188.         0,
  189.         23,
  190.         13,
  191.         3,
  192.         NIL,
  193.         $07,
  194.         $00,
  195.         NIL
  196. );
  197.  
  198.         ImageDataExplosion2 : array[1..78] of short =
  199. (
  200.         $0800,$0000,$0200,$0000,$0000,$0000,$0000,$0000,
  201.         $0000,$0000,$0000,$8000,$0000,$1000,$0000,$0000,
  202.         $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  203.         $0000,$0000,$8802,$0000,$0200,$0000,$1EC8,$9000,
  204.         $2400,$8000,$0000,$8200,$4000,$8000,$4044,$D000,
  205.         $C422,$0000,$0010,$8200,$0400,$2200,$8880,$2000,
  206.         $0201,$0000,$0000,$0000,$0002,$0000,$0000,$0000,
  207.         $0640,$1000,$2000,$8000,$0000,$8200,$4000,$0000,
  208.         $4000,$8000,$8020,$0000,$0010,$0200,$0400,$2200,
  209.         $0880,$0000,$0000,$0000,$0000,$0000
  210. );
  211.  
  212.         ImageExplosion2 : Image =
  213. (
  214.         0,
  215.         0,
  216.         23,
  217.         13,
  218.         3,
  219.         NIL,
  220.         $07,
  221.         $00,
  222.         NIL
  223. );
  224.  
  225.         ImageDataExplosion3 : array[1..78] of short =
  226. (
  227.         $0000,$0000,$4040,$0000,$0000,$0000,$0000,$8000,
  228.         $0000,$0000,$0000,$0000,$0000,$0000,$0000,$2000,
  229.         $0800,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  230.         $0002,$0000,$0000,$0000,$2000,$0000,$0000,$0000,
  231.         $0000,$0000,$0000,$0000,$0000,$0000,$2000,$0000,
  232.         $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  233.         $0000,$0000,$0000,$0000,$0000,$0000,$2000,$0000,
  234.         $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  235.         $2000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  236.         $0000,$0000,$0000,$0000,$0000,$0000
  237. );
  238.  
  239.         ImageExplosion3 : Image =
  240. (
  241.         0,
  242.         0,
  243.         23,
  244.         13,
  245.         3,
  246.         NIL,
  247.         $07,
  248.         $00,
  249.         NIL
  250. );
  251.